home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / src / WBBump_src.lha / WBBump_src / libs.e < prev    next >
Encoding:
Text File  |  1999-06-30  |  1.9 KB  |  69 lines
  1. /* ****** */
  2. /* libs.e */
  3. /* ****** */
  4.  
  5.  
  6.  
  7. /*
  8.     WBBump - Bumpmapping on the Workbench!
  9.  
  10.     Copyright (C) 1999  Thomas Jensen - dm98411@edb.tietgen.dk
  11.  
  12.     This program is free software; you can redistribute it and/or modify
  13.     it under the terms of the GNU General Public License as published by
  14.     the Free Software Foundation; either version 2 of the License, or
  15.     (at your option) any later version.
  16.  
  17.     This program is distributed in the hope that it will be useful,
  18.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  19.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20.     GNU General Public License for more details.
  21.  
  22.     You should have received a copy of the GNU General Public License
  23.     along with this program; if not, write to the Free Software Foundation,
  24.     Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  25. */
  26.  
  27.  
  28. OPT MODULE
  29.  
  30.  
  31. MODULE    'utility',
  32.         'cybergraphics',
  33.         'icon',
  34.         'commodities',
  35.         'datatypes',
  36.         'wb'
  37.  
  38. MODULE    '*errors'
  39.  
  40.  
  41. EXPORT PROC open_libs() HANDLE
  42.     utilitybase := OpenLibrary('utility.library', 39)
  43.     cybergfxbase := OpenLibrary('cybergraphics.library', 39)
  44.     iconbase := OpenLibrary('icon.library', 39)
  45.     cxbase := OpenLibrary('commodities.library', 37)
  46.     datatypesbase := OpenLibrary('datatypes.library', 39)
  47.     workbenchbase := OpenLibrary('workbench.library', 39)
  48.  
  49.     IF utilitybase = NIL THEN Raise(ERR_UTILLIB)
  50. ->    IF cybergfxbase = NIL THEN Raise(ERR_CGXLIB)
  51.     IF iconbase = NIL THEN Raise(ERR_ICONLIB)
  52.     IF cxbase = NIL THEN Raise(ERR_CXLIB)
  53.     IF datatypesbase = NIL THEN Raise(ERR_DTLIB)
  54.     IF workbenchbase = NIL THEN Raise(ERR_WBLIB)
  55. EXCEPT DO
  56.     ReThrow()
  57. ENDPROC
  58.  
  59.  
  60. EXPORT PROC close_libs()
  61.     IF utilitybase THEN CloseLibrary(utilitybase)
  62.     IF cybergfxbase THEN CloseLibrary(cybergfxbase)
  63.     IF iconbase THEN CloseLibrary(iconbase)
  64.     IF cxbase THEN CloseLibrary(cxbase)
  65.     IF datatypesbase THEN CloseLibrary(datatypesbase)
  66.     IF workbenchbase THEN CloseLibrary(workbenchbase)
  67. ENDPROC
  68.  
  69.